1 FORA=770TO792:READB:POKEA,B:NEXT:DATA173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,0,0:GR:FORI=1TO37STEP3:COLOR=15:VLIN10,30ATI:VLIN19,30ATI+1:NEXTI:HLIN1,39AT8:HLIN1,39AT32:INPUT"DUREE:";D:HOME
2 GETR$:R=ASC(R$):POKE768,R:POKE769,D:CALL770:VTAB22:HTAB6:PRINT"NOTE:";R$:VTAB22:HTAB16:PRINT"DUREE:";D:GOTO2